Public Function IsIp(Ip As String) As Boolean
Dim strData() As String
Dim I As Integer
IsIp = True
strData = Split(Ip, ".")
If UBound(strData) = 3 Then
For I = 0 To 3
If IsNumeric(strData(I)) = False Then: IsIp = False: Exit Function
If strData(I) > 255 Then: IsIp = False: Exit Function
If strData(I) < 0 Then: IsIp = False: Exit Function
Next I
Exit Function
Else: End If
IsIp = False
End Function